home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 April / EnigmA AMIGA RUN 26 (1998)(G.R. Edizioni)(IT)[!][issue 1998-04].iso / earkit / useful / graburl / graburl_install next >
Text File  |  1998-03-13  |  8KB  |  217 lines
  1. ; $VER: Install_UrlKit 1.0 (14.1.97)
  2. ;
  3.  
  4. ; Français -------
  5. (procedure français (
  6.     (set MSG_WRONGOS "\n\nGrabURL nécessite AmigaDOS V39 (3.0) ou plus!")
  7.     (set MSG_DESTBIN "OÙ désirez-vous installer les fichiers exécutables?")
  8.     (set MSG_DESTDOC "OÙ désirez-vous installer les documents AmigaGuide?")
  9.     (set MSG_DONE "\n\nL'installation de GrabURL est maintenant terminée.\n\nLes exécutables sont maintenant dans le répertoire %s.\nLes documents AmigaGuides sont maintenant dans %s.\n\nMerci d'essayer GrabURL!")
  10.     (set ASK_BIN "Sélectionnez les exécutables à copier.\n\n** Notez qu'ils doivent tous être copiés pour utiliser GrabURL.")
  11.     (set ASK_DOC "Sélectionnez les documents AmigaGuide à copier.")
  12.     (set ASK_CPU "Les exécutables ont été compilés pour différents types de processeurs.\n\nSélectionnez le type à installer.")
  13.     (set DOC_GRABHTTP ("GrabHTTP.guide (%ld octets)" (getsize "doc/GrabHTTP.guide")))
  14.     (set DOC_URLMANAGER ("UrlManager.guide (%ld octets)" (getsize "doc/UrlManager.guide")))
  15.     (set DOC_SCANHTML ("ScanHTML.guide (%ld octets)" (getsize "doc/ScanHTML.guide")))
  16.     (set DOC_GRABURL ("GrabURL.guide (%ld octets)" (getsize "doc/GrabURL.guide")))
  17.     (set STR_OCTETS ("octets"))
  18. ))
  19. ; English -------
  20. (procedure english (
  21.     (set MSG_WRONGOS "\n\nGrabURL needs at least AmigaDOS V39 (3.0)!")
  22.     (set MSG_DESTBIN "Where do you want to install the executable files?")
  23.     (set MSG_DESTDOC "Where do you want to install the AmigaGuide documents?")
  24.     (set MSG_DONE "\n\nGrabURL's installation is done.\n\nThe executable files are now in %s.\nThe AmigaGuide documents are now in %s.\n\nThanks for trying GrabURL!")
  25.     (set ASK_BIN "Select the files to copy.\n\nYou NEED all of them to get a working GrabURL!")
  26.     (set ASK_DOC "Select the help files to copy.")
  27.     (set ASK_CPU "Executables are compiled for several types of CPU.\n\nPlease choose the set to install.")
  28.     (set DOC_GRABHTTP ("GrabHTTP.guide (%ld bytes)" (getsize "doc/GrabHTTP.guide")))
  29.     (set DOC_URLMANAGER ("UrlManager.guide (%ld bytes)" (getsize "doc/UrlManager.guide")))
  30.     (set DOC_SCANHTML ("ScanHTML.guide (%ld bytes)" (getsize "doc/ScanHTML.guide")))
  31.     (set DOC_GRABURL ("GrabURL.guide (%ld bytes)" (getsize "doc/GrabURL.guide")))
  32.     (set STR_OCTETS ("bytes"))
  33. ))
  34.  
  35. (if (= @language "english") (english))
  36. (if (= @language "français") (français))
  37.  
  38. ; Check OS version
  39. (set osversion (/ (getversion) 65536))
  40. (if (< osversion 39)
  41.     (abort MSG_WRONGOS)
  42. )
  43.  
  44. ; Default destinations
  45. (if (exists "AmiTCP:bin" (noreq))
  46.     (set def_bindest "AmiTCP:bin")
  47.     (set def_bindest @default-dest)
  48. )
  49. (if (exists "AmiTCP:help" (noreq))
  50.     (set def_docdest "AmiTCP:help")
  51.     (set def_docdest @default-dest)
  52. )
  53.  
  54. (complete 0)
  55.  
  56. (set DEFCPU (database "cpu"))
  57. (if (= DEFCPU "68020") ((set DEFC "020") (set ASKDEF 1))
  58.     (if (= DEFCPU "68030") ((set DEFC "030") (set ASKDEF 2))
  59.         (if (= DEFCPU "68040") ((set DEFC "040") (set ASKDEF 3))
  60.             ((set DEFC "000") (set ASKDEF 0))
  61.         )
  62.     )
  63. )
  64.  
  65. ; Ask the kind of CPU...
  66. (set cpuchoice (askchoice
  67.             (prompt ASK_CPU)
  68.             (help @askchoice-help)
  69.             (choices "68000" "68020" "68030" "68040")
  70.             (default ASKDEF))
  71. )
  72.  
  73. (if (= cpuchoice 0) (set EXT "000")
  74.     (if (= cpuchoice 1) (set EXT "020")
  75.         (if (= cpuchoice 2) (set EXT "030")
  76.             (if (= cpuchoice 3) (set EXT "040"))
  77.         )
  78.     )
  79. )
  80.  
  81. ; Get file sizes
  82. (set FILE_GRABHTTP ("GrabHTTP (%ld %s)" (getsize ("bin/GrabHTTP_%s" EXT)) (STR_OCTETS)))
  83. (set FILE_URLMANAGER ("UrlManager (%ld %s)" (getsize ("bin/UrlManager_%s" EXT)) (STR_OCTETS)))
  84. (set FILE_SCANHTML ("ScanHTML (%ld %s)" (getsize ("bin/ScanHTML_%s" EXT)) (STR_OCTETS)))
  85. (set FILE_GRABURL ("GrabURL (%ld %s)" (getsize "rexx/GrabURL.rexx") (STR_OCTETS)))
  86.  
  87. ; Install binaries
  88. (set binchoice (askoptions
  89.             (prompt ASK_BIN)
  90.             (help @askchoice-help)
  91.             (choices FILE_GRABHTTP FILE_URLMANAGER FILE_SCANHTML FILE_GRABURL)
  92.             (default -1))
  93. )
  94.  
  95. (if (<> binchoice 0)
  96. (   ; Something to copy
  97.     (set bindir
  98.         (askdir (prompt MSG_DESTBIN)
  99.                 (help @askdir-help)
  100.                 (default def_bindest)
  101.                 (newpath)))
  102.     ; GrabHTTP
  103.     (if (IN binchoice 0)
  104.         (
  105.             (copyfiles
  106.                         (help @copyfiles-help)
  107.                         (source ("bin/GrabHTTP_%s" EXT))
  108.                         (dest bindir)
  109.                         (newname "GrabHTTP"))
  110.             (protect (tackon bindir "GrabHTTP") 32)
  111.         ) ; End GrabHTTP
  112.     ) ; End if
  113.     ; UrlManager
  114.     (if (IN binchoice 1)
  115.         (
  116.             (copyfiles
  117.                         (help @copyfiles-help)
  118.                         (source ("bin/UrlManager_%s" EXT))
  119.                         (dest bindir)
  120.                         (newname "UrlManager"))
  121.             (protect (tackon bindir "UrlManager") 32)
  122.         ) ; End UrlManager
  123.     ) ; End if
  124.     ; ScanHTML
  125.     (if (IN binchoice 2)
  126.         (
  127.             (copyfiles
  128.                         (help @copyfiles-help)
  129.                         (source ("bin/ScanHTML_%s" EXT))
  130.                         (dest bindir)
  131.                         (newname "ScanHTML"))
  132.             (protect (tackon bindir "ScanHTML") 32)
  133.         ) ; End ScanHTML
  134.     ) ; End if
  135.     ; GrabURL.rexx
  136.     (if (IN binchoice 3)
  137.         (
  138.             (copyfiles
  139.                         (help @copyfiles-help)
  140.                         (source "rexx/GrabURL.rexx")
  141.                         (dest bindir)
  142.                         (newname "GrabURL"))
  143.             (protect (tackon bindir "GrabURL") 66)
  144.         ) ; End GrabURL.rexx
  145.     ) ; End if
  146. ))  ; End if
  147.  
  148. (complete 50)
  149.  
  150. ; Install documents
  151. (set docchoice (askoptions
  152.             (prompt ASK_DOC)
  153.             (help @askchoice-help)
  154.             (choices DOC_GRABHTTP DOC_URLMANAGER DOC_SCANHTML DOC_GRABURL)
  155.             (default -1))
  156. )
  157.  
  158. (if (<> docchoice 0)
  159. (   ; Something to copy
  160.     (set docdir
  161.         (askdir (prompt MSG_DESTDOC)
  162.                 (help @askdir-help)
  163.                 (default def_docdest)
  164.                 (newpath)))
  165.     ; GrabHTTP
  166.     (if (IN docchoice 0)
  167.         (
  168.             (copyfiles
  169.                         (help @copyfiles-help)
  170.                         (source "doc/GrabHTTP.guide")
  171.                         (dest docdir)
  172.                         (infos))
  173.             (protect (tackon docdir "GrabHTTP.guide") 2)
  174.         ) ; End GrabHTTP
  175.     ) ; End if
  176.     ; UrlManager
  177.     (if (IN docchoice 1)
  178.         (
  179.             (copyfiles
  180.                         (help @copyfiles-help)
  181.                         (source "doc/UrlManager.guide")
  182.                         (dest docdir)
  183.                         (infos))
  184.             (protect (tackon docdir "UrlManager.guide") 2)
  185.         ) ; End UrlManager
  186.     ) ; End if
  187.     ; ScanHTML
  188.     (if (IN docchoice 2)
  189.         (
  190.             (copyfiles
  191.                         (help @copyfiles-help)
  192.                         (source "doc/ScanHTML.guide")
  193.                         (dest docdir)
  194.                         (infos))
  195.             (protect (tackon docdir "ScanHTML.guide") 2)
  196.         ) ; End ScanHTML
  197.     ) ; End if
  198.     ; GrabURL.rexx
  199.     (if (IN docchoice 3)
  200.         (
  201.             (copyfiles
  202.                         (help @copyfiles-help)
  203.                         (source "doc/GrabURL.guide")
  204.                         (dest docdir)
  205.                         (infos))
  206.             (protect (tackon docdir "GrabURL.guide") 2)
  207.         ) ; End GrabURL.rexx
  208.     ) ; End if
  209. ))  ; End if
  210.  
  211. (complete 100)
  212.  
  213. ; End!
  214. (message (MSG_DONE bindir docdir))
  215. (run "run <>nil: more Readme_Now.txt")
  216. (exit (quiet))
  217.